
•sj^l^ iJtjlJJ^ / b m a i s o n / b i n / p e r 1 5 



Apply_rules . pi 



$rulefile=$ARGV[0] ; 

$filein=$ARGV[l] ; 
#"twov03_new4 , data" ; 
#$filein="twovll4_new4 . test"; 

$fileout=$ARGV[2] ; 



open(f,$filein) || die "I can't"; 

$count=0; 

$thresh_rules=l; 

$print = 1; 

$count=0; 
while (<f>) { 
chop; 

$sentence [$count] =$_; 
@a=split(/,/) ; 
$truth [ $count ] -$a [ 12 ] ; 
if ($#a > 12) { 

$prediction [$count] =$a [$#a] ; 

} 

else{ 

$prediction [$ count ] =1; 

} 

for ($i=0; $i<=$#a; $i++) { 
$sent [$count] [$i] = $a[$i]; 

} 

$count++; 

} 

$no sent=$count; 



close (f ) ; 
print "HERE\n"; 

open (f rules, $rulefile) || " I can't open $rulefile"; 
while (<frules>) { 
chop; 

$good=0 ; 
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$bad=0; 
$changed=0; 

@a=split (/\s+/) ; 

print "RULE $_ \t"; 
$rule = $_; 
@b=split(/:/,$a(0] ) ; 
$source=$b [0] ; 
$target=$b[l] ; 

@d=split(/,/,$a[l] ) ; 

for ($i=0; $i<=$#d; $i++) { 

@c=split (/:/,$d[$i] ) ; 

$attribute[$i]=$c[0] ; 

$comparison [$i] =$c [1] ; 

$value[$i]=$c[2] ; 

#print $attribute [$i] , "\t", $comparison [$i] , "\t", $value [$i] , 

\n"; 
} 

for ($i=0; $i< $no_sent; $i++) { 
if ( $prediction [$i] eq $source) { 
$count=0; 

for ($j=0/ $j<=$#d; $j++) { 

if ($comparison [$ j ] eq "eq") { 

if ($sent [$i] [$attribute[$j] ] ne $value[$j]){ 
last ; 

} 

else { 

$count++; 

} 

} 

elsif ($comparison [$ j ] eq "ls"){ 

if ($sent [$i] [$attribute [$ j ] ] > $value[$j]){ 
last ; 

} 

else{ 

$count++; 

} 

} 

elsif ($comparison [$j ] eq "gt") { 

if ($sent [$i] [$attribute [$j ] ] < $value[$j]){ 
last ; 

} 

else { 

$count++; 

} 

} 
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else { 

print "ERROR not such a comparison $comparison 
exit; 

} 

} 

#print $i, "\t",$count, "\t",$#d+l, "\n"; 
if ($count == $#d+l) { 
$changed++; 

if ($prediction[$i] eq $truth[$i]){ 
$bad++; 

} 

else{ 

$good++; 

} 

$prediction [$i] = $target; 

#print "I changed $source to $target for $i\n"; 

} 

} 

} 

$dif f=$good-$bad; 

if ($diff > $maxdiff ) { 

$maxdif f=$dif f ; 

$bestrule = $rule; 

} 

print " GOOD:$good BAD:$bad ALL: $dif f \n" ; . 

} 

$count_errors=0 ; 

$countl_2=0; 

$count2_l=0; 

for ($i=0; $i< $no_sent; $i++) { 

if ($prediction [$i] ne $truth[$i]){ 
$count_errors++; 

if ($prediction[$i] eq "1" && $truth[$i] eq "2"){ 
$count2_l++; 

} 

elsif ($prediction[$i] eq "2" && $truth[$i] eq "!"){ 
$countl_2++; 

} 

} 

} 

} 

print "MAXDIFF $maxdiff $bestrule\n" ; 

print "ALL ERRORS $count_errors\n" ; 

print "TRUTH = 1 PREDICTION = 2 : $count l_2\n" ; 

print "TRUTH = 2 PREDICTION = 1 : $count2_l\n" ; 
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if ($print){ 

open(fout, ">$fileout") ; 

for ($i=0; $i< $no_sent; $i++) { 

print fout $sentence [$i] , " , " , $prediction [$i] , 

} 
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